home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
tallyho.arc
/
LINEAR.FCP
< prev
next >
Wrap
Text File
|
1990-09-23
|
2KB
|
186 lines
@DSPLY "Linear Regression"
@MIN
@RIN (2)
@RIN (4)
@RIN (5)
@RIN (6)
@DSPLY "You will be entering"
@DSPLY "pairs of data points."
@DSPLY "X =Independent Variable"
@DSPLY "Y = Dependent Variable"
=
@NEW STEP
1
@M+
@GET "Enter the value of X"
@RIN (1)
@SUM+
@X2
+
@ROUT (2)
=
@NEW STEP
@RIN (2)
@GET "Enter the value of Y"
@RIN (3)
+
@ROUT (4)
=
@NEW STEP
@RIN (4)
@ROUT (3)
@X2
+
@ROUT (5)
=
@NEW STEP
@RIN (5)
@ROUT (1)
*
@ROUT (3)
+
@ROUT (6)
=
@NEW STEP
@RIN (6)
@GET "1=more data, 0=no more."
@IF =
1=
@NEW STEP
@GOTO (2)
=
@NEW STEP
((
@MOUT
*
@ROUT (6)
)-(
@ROUT (4)
*
@SUM
))/((
@MOUT
*
@ROUT (2)
)-(
@SUM
*
@SUM
))=
@NEW STEP
@RIN (7)
(
@ROUT (4)
-(
@ROUT (7)
*
@SUM
))/
@MOUT
=
@NEW STEP
@RIN (8)
((
@MOUT
*
@ROUT (2)
)-(
@SUM
*
@SUM
))/(
@MOUT
*(
@MOUT
-1))=
@NEW STEP
@SQRT
=
@NEW STEP
@RIN (9)
((
@MOUT
*
@ROUT (5)
)-(
@ROUT (4)
*
@ROUT (4)
))/(
@MOUT
*(
@MOUT
-1))=
@NEW STEP
@SQRT
=
@NEW STEP
@RIN (10)
(
@ROUT (7)
*
@ROUT (9)
)/
@ROUT (10)
=
@NEW STEP
@RIN (10)
@ROUT (7)
@DSPLY "Regression line slope"
@ROUT (8)
@DSPLY "Y - intercept of line"
@ROUT (10)
@DSPLY "Correlation coefficient"
@X2
@DSPLY "Index of determination"
=
@NEW STEP
@GET "0 = Quit. 1 = Continue."
@IF =
0=
@NEW STEP
@GOTO (24)
=
@NEW STEP
@GET "1 = find Y. 2 = find X."
@IF =
2=
@NEW STEP
@GOTO (22)
=
@NEW STEP
@GET "Enter value of X"
@RIN (9)
@ROUT (7)
*(
@ROUT (9)
-
@MEAN
)+(
@ROUT (4)
/
@MOUT
)=
@NEW STEP
@DSPLY "Calculated value of Y"
@GOTO (16)
=
@NEW STEP
@GET "Enter value of Y"
@RIN (9)
(
@ROUT (9)
-
@ROUT (8)
)/
@ROUT (7)
=
@NEW STEP
@DSPLY "Calculated value of X"
@GOTO (16)
=
@NEW STEP
0
@MIN
@STOP